home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_pcdp / adas / adas.pas < prev    next >
Pascal/Delphi Source File  |  1996-01-30  |  284b  |  18 lines
  1. program adas;
  2. uses global, compile, interp;
  3. var ok: boolean;
  4.     ch: char;
  5.  
  6. begin
  7.   repeat
  8.     write('File: ');
  9.     readln(inputfile);
  10.     ch := inputfile[1];
  11.     ok := false;
  12.     if ch >= 'A' then
  13.       compiler(ok);
  14.     if ok then interpret
  15.   until ch < 'A'
  16. end.
  17.  
  18.